home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Summer
/
rerun-1985-summer-side-a.d64
/
graph load 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
361b
|
13 lines
50000 rem ** load subroutine **
50010 :
50020 rem ** (c) 1984 by d. smoak **
50030 :
50040 input"[147]exact filename";f$:iff$=""orlen(f$)>14then50040
50050 f$(2)=f$:f$(1)=f$+".c"
50060 forj=1to2:f$=f$(j)
50070 ifj=2thencl=peek(56296):poke53280,cl:poke53281,cl
50080 fori=1to len(f$):poke819+i,asc(mid$(f$,i,1)):next
50090 poke183,len(f$):poke187,52:poke188,3:poke186,8:poke185,1
50100 poke780,0:sys65493:nextj
50110 rem** return (if called by gosub) **